<?php
function DoDateTimeStamp($theObject, $NamedFormat) {
	ereg("([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})", $theObject, $tgRegs);
	$parsedDate=@date($NamedFormat, mktime($tgRegs[4],$tgRegs[5],$tgRegs[6],$tgRegs[2],$tgRegs[3],$tgRegs[1]));
	return $parsedDate;
}
	
function histpreg($id,$idpreg){
global $forms2;
global $mypath;
if ($id<>"" and $idpreg<>"") {


$SQL="SELECT tabladest FROM preguntas WHERE idpreg=$idpreg";
$info=$forms2->Execute($SQL) or DIE($forms2->ErrorMsg()."<br>$SQL<br>");
$tablahist=str_replace("td_","th_",$info->Fields("tabladest"));

$SQL="SELECT $tablahist.fecha,$tablahist.valor,$tablahist.iduser,preguntas.*,users.nombre,users.apellido 
      FROM $tablahist INNER JOIN preguntas ON $tablahist.idpreg=preguntas.idpreg,users 
	  WHERE $tablahist.iduser=users.idusuario AND $tablahist.id=$id AND $tablahist.idpreg=$idpreg 
	  ORDER BY $tablahist.fecha DESC";
$preguntas=$forms2->Execute($SQL) or DIE ($forms2->ErrorMsg()."<br>$SQL<br>".__FILE__.":line:".__LINE__);
echo "<table cellspacing=0 cellpadding=2 border=0>";
echo "<tr bgcolor=c0c0c0><td>Fecha</td><td>Estado</td><td>Usuario</td></tr>";
  	while (!$preguntas->EOF){
	  $valor=$preguntas->fields("valor");
	  $tipo=$preguntas->Fields("idtipo"); 
      $idform=$preguntas->Fields("idform");
	  $ancho=$preguntas->Fields("ancho");
	  $parametro1=$preguntas->Fields("param1");
	  $parametro2=$preguntas->Fields("param2");
	  $nombrecontrol=$preguntas->Fields("nombrecontrol");
	  $descripcion=$preguntas->Fields("descripcion");
	  $idpreg=$preguntas->Fields("idpreg");
	  $idop=$preguntas->Fields("idopcion");
echo "<tr>";
//echo "<td><font face=arial size=2>".DoDateTimeStamp($preguntas->Fields("fecha"),"d-m-Y h:i:s")."</font></td>";
echo "<td><font face=arial size=2>".$preguntas->Fields("fecha")."</font></td>";
echo "<td><font face=arial size=2>";
	include("$mypath/appfront/listcore.php");
echo "&nbsp;</td></font>";
	echo "<td><font face=arial size=2>".$preguntas->Fields("nombre")." ".$preguntas->Fields("apellido")."</font></td>";
	echo "</tr>";
	$preguntas->MoveNext();
	}
echo "</table>";
}
return true;
}

function histpreglist($id,$idpreg){
global $forms2;
global $mypath;
if ($id<>"" and $idpreg<>"") {


$SQL="SELECT tabladest FROM preguntas WHERE idpreg=$idpreg";
$info=$forms2->Execute($SQL) or DIE($forms2->ErrorMsg()."<br>$SQL<br>");
$tablahist=str_replace("td_","th_",$info->Fields("tabladest"));

$SQL="SELECT date_format($tablahist.fecha,'%Y-%m-%d') as fecha,$tablahist.valor,$tablahist.iduser,preguntas.*,users.nombre,users.apellido 
      FROM $tablahist INNER JOIN preguntas ON $tablahist.idpreg=preguntas.idpreg,users 
	  WHERE $tablahist.iduser=users.idusuario AND $tablahist.id=$id AND $tablahist.idpreg=$idpreg 
	  ORDER BY $tablahist.fecha DESC";
$preguntas=$forms2->Execute($SQL) or DIE ($forms2->ErrorMsg()."<br>$SQL<br>".__FILE__.":line:".__LINE__);

  	while (!$preguntas->EOF){
	  $valor=$preguntas->fields("valor");
	  $tipo=$preguntas->Fields("idtipo"); 
      $idform=$preguntas->Fields("idform");
	  $ancho=$preguntas->Fields("ancho");
	  $parametro1=$preguntas->Fields("param1");
	  $parametro2=$preguntas->Fields("param2");
	  $nombrecontrol=$preguntas->Fields("nombrecontrol");
	  $descripcion=$preguntas->Fields("descripcion");
	  $idpreg=$preguntas->Fields("idpreg");
	  $idop=$preguntas->Fields("idopcion");
$retstr.="<font color=red> ** </font>".$preguntas->Fields("fecha")." - ";
    $retstr.=veropciones($idop,$valor);
	$retstr.=" - ".$preguntas->Fields("nombre")." ".$preguntas->Fields("apellido")." ** ";
	$preguntas->MoveNext();
	}
}
return $retstr;}
?>